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Facility: RMS 
Abstract: 


This module communicates with the File Access Listener (FAL) at the 
remote node to perform the get and find operations. 


Environment: VAX/VMS, executive mode 


Author: James A. Krycka, Creation Date: 09-DEC-1977 
Modified By: 
v03-003 JAKO126 J A Krycka 08-SEP-1983 


Add NTSRET_RRN routine to return relative record number in the 
RABSL_BKT Field on sequential $GET, SFIND, and $PUT operations 
operations to a relative file (per RMS documentation) . 


v03-002 JAKO121 J A_Krycka 01-AUG-1983 
Send key string in DAP” Control message on $GET and $FIND for 
sequential access of an indexed file with the key Limit option 
selected. Also, reorganize module a bit for clarity. 


v03-001 KRM0090 arl Malik 18-Mar-1983 
Add support for SIME and STMCR formats. 


ASSUME DAP$Q -PCODE FLG EQ 0 
ASSUME NWASQ"FLG EO 0 


Own Storage: 


NTOGET NETWORK GET/FIND RECORD 1 m iis -1984 00:01:2 AX/VMS Macro V04-00 Page 
v04- DECLARATIONS on 1 984 16 9; 29 CRMs. SRCINT OGET. MAR; 1 . 3) 
0 28 -SBTTL DECLARATIONS 
6 60 ; 
8 61 ; Include Files: 
6¢ ; 
44 6 
00 64 SBDBDEF ; Define BDB symbols 
000 65 SDAPPLGDEF ; Define DAP prologue symbols 
000 96 SDAPHDRDEF 3; Define DAP message header 
0000 6 SDAPCNF DEF ; Define DAP Configuration message 
0000 68 SDAPCTLDEF ; Define DAP Control message 
4 +4 SDAPDATDEF ; Define DAP Data message 
000 0 SDAPSTSDEF ; Define DAP Status message 
000 71 F ABDEF ; Define File Access Block symbols 
0000 Me SIFBDEF ; Define IFAB symbols 
0000 7 SIRBODEF ; Define IRAB symbols 
0000 74 SNWADEF ; Define Network Work Area symbols 
0000 75 SRABDEF ; Define Record Access Block symbols 
0000 76 SRMSDEF ; Define RMS completion codes 
0000 77 
0000 78 ; 
0000 79 ; Macros: 
0000 80 ; 
0000 81 ; None 
0000 82 ; 
0000 83 ; Equated Symbols: 
0000 BS 
QOO00A0D 0000 86 CRLF=*xXOA0D ; ASCII codes for _ and LF 
0000000A 0600 87 LF=*XOA ; ASCII code for LF 
0000000D ° 3 CR=*x0D 3; ASCII code for CR 
0000 9 
0000 9 
0000 9 
0000 3 
0000 9 
0000 9 
0000 9 
0000 9 


OOO ooooooooooooooocoso 
NOUEWN—OOONOAUS Wr 


None 
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-SBTTL NTSGET = PERFORM NETWORK GET RECORD FUNCTION 


a 
mo 
42 
pat 
o 
25 
zz 
min 
“oOo 


++ 

; NTSGET = engages in a DAP dialogue with the remote FAL to get (retrieve) 
the specified record of a sequential, relative, or indexed file. This 
routine supports both DAP file transfer and record transfer modes. 


pololejeleoeloio) 


SoOSCOSSOSSSOSSSOOSSOOSSOSOSOOCOCSOSOSOSOOSOSOSOOSOOSOOSOOOOSOOSCOOO 


; Calling Sequence: 
BSBw NT$GET 
; Input Parameters: 
a BDB address 


R RAB address 
R9 IRAB address 
R10 IFAB address 
R11 Impure Area address 


Implicit Inputs: 
BDBSL_ADDR 
$ E 


RABSL _KBF 
RABSB_KRF 


; Output Parameters: 


COOQCOCCOCOCOSOSOSOSSOSSCCSCSSOOCOCSOOOOOOCOOOOOOOOOOOOOOO 


RO Status code (RMS) 
R1-R3 ~=Destroyed 
AP Destroyed 


OOOCCOCOSCOSCSOSOSSOSOSSOSOSCOSCSOSOSOSSOSOSOSOSCOSOOOSOOOSoO 


Implicit Outputs: 


BDB buffer contents 

BOBSW_NUMB 

DAPSL_CRC_RSLT 

IRB$L_IOS and IRBS$L_I0S4 zeroed 
NWASV_FTM_ 

NWASV_FTM_INIT cleared 
NWASV_FTM_RETRV 

RABSL~BKT 


COOCCOCSOSOOCOCOOOCOOCOCOOCOOOOOSOOSOOOOOOOCOOCOOOOOSOOOOOOCOOOOOOOOOOOOOOOO 
ated aiabebubatbabababadabababebababeaiabluibabaiatadbad aababababababaiabuababadaiabuababababababababubabatabaiababaiah 
SUV BS BS BS EB BEE ANNI NINN NINN NINNINPONONIDY 2 4 OO SS S" DOOOOOCOOCOCONO OF 


: IRB$B-MODE 


ooooooooo 
SoOoOoooooooooo 
SOOQCOoQCooQooooooooo 


See a Sie ay ET es RO Ra. ate! Gen. 
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RABSW_RFA 
RABSL-STV 


Completion Codes: 


NTOGET NETWORK GET/ 
v04- NTSGET = PER 


zo 
=m 
mm 


“SEP-1984 


Standard RMS completion codes 
Side Effects: 
None 


NTSGET:: 

NTGET 

HERG, RS,R6,R7> 

MOVL  IFBS$L_NWA_PTR(R10) ,R7 
CLRW ADBSUnN UMB(R6) 

BSBW NT SCHR RAC 


R 
BBS #NUASV -FTM_STORE, (R7) ,~ 


“ 

~N 

Ww 

Oo 
SeStSsss 
oworfoo 


ASSUME 
ASSUME 
ASSUME 


$CASEB 


set SEQ EQ 9 
RABSC_KEY EQ 1 

RABSC_RFA EQ 2 

1s bala seams 

GET_SEQ- 

GET_KEY- 

GET"RFA- 

AC 


™ 


BRW 
10$: BRW 
ERRFTM1:BRW 


WAG 
— 


> 

ERRR 
EXIT 
ERRF 


III ARON 2 SS 3 SS OOOO OK. CODCOD OODOSOOOS 


DODO OOOO MO OO NAPNNININININ MO OM MMMMMMMMMMNO SNS FP HOD OKOOOCOOOCCOCOOOO 


: This support routine builds the first 
¢_CTLFUNC field for the get operation. 


BUILD_GET CTL: 
SSETBIT #NWASV_LAST MSG, (R7) 
#DAPS$K"CTL 


BSBu NT$BU TCD HEAD 
#DAPS$K CET READ, (RS) + 


SGOOOCCOCOCOSOSOSOSOSOC COSCO SSSOSCSCOSCSOSOOSOSOOSOSOS HSOOOOOoOoOoOoO'S 


50 04 
FFC4’ 
85 01 


oowso 
Mmoooe 


+ 


Sequential access has been requested. 
Note: In record transfer mode a 
message is required. 


——§ ~QOODSODOOCOOO OOOO O OOO OW 00009 09 0900 CO 08 NIN NINN NNN NIA OOPAOOO aou: wviw Or 
ROOD NAUE WIN $$ OOD NAUE WN 9 OD NAME WN O OO NOA UE WN (OC OONOUEWN—"OWONOA DZ 


F 
F 
1 
1 
i 
15 
i 
1 
1 
i 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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RMS.SRCINTOGET.MAR; 1 


Entry point 


Save registers 

Copy BDB address 

Get address of NWA (and DAP) 

Zero byte count in BDB 

Validate record access mode 

Branch on failure 

$GET after SPUT not allowed in 
file transfer mode 


Dispatch on access mode: 


Sequential record access 
Access by key value 
Access by record file address 
Value Gut-of-range 
Branch aid 
Branch aid 
Branch aid 


Sete Se Se Ge Se Ge Be Se 


part of a Control message thru the 


Entry point 

Declare this last message to block 
Get message type value 

Construct message header 

rece CTLFUNC field 


Control ye must be sent for each record 
retrieved, whereas, in tile transfer mo 


e only an initial Control 
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ip 13 
4 14 GET_SEQ: ; Get operation with RAC = SEQ 
05 os 3 60 , 15 BBS #IFBSV_SQ0, (R10) ,10$ ; Branch if in file transfer mode 
1 A 9044 18 MOVZBL #DAP$K~SEQACC,RI ; Set RAC for DAP message | 
1 11 0047 1 BRB ET SEG C ; Join common code 
03 67 1D 4 049 18 10$: BBC #NWASV_FTM_EOF,(R7),20$ ; Check for EOF from a previous read 
0140 1 0040 1 BRW ERREOF ; Branch aid 
67 > i $038 0 20$: BBCC #NWASV_FTM_INIT,(R7),- ; Branch if no Control mseeeer required 
78 005 1 GET_R ; _and turn off single-shot flag | 
B38 ¢ SSETBIT #NWASV_FTM_RETRV,(R7) ; Set file transfer mode retrieval flag 
51 03 9A 098 ; MOVZBL #DAPSKISEQ“FILE,R1 : Set RAC for DAP message 
$086 5 GET_SEQ_COMMON: ; Common code for get operation | 
FFD4 30 0058 $8 BSBW BUILD_GET CTL :_ Start building Control message 
12.04 AB 0 E1 eh 7 BBC #RABST_LIM,RABSL_ROP(R8) ,10$ | 
20 00cé6 C 91 006 8 CMPB NWASB_ORG(R7) ,ANQASK_IDX; Fall thru if key Limit option selected 
0B 12 0068 9 BNEQ 0$ : for an indexed file | 
85 0B 90 Q06A 230 MOVB #<<DAPSM_RAC>!- ; Message must include these fields in 
006D 231 <DAPSM_KEY>!- 3 control menu 
006D $3¢ <DAPS$M_ROP> !- ; 
006D 23 O>, (R5)+ 3 
85 51 90 006D 34 MOVB R1,(R5)+ 3 Store RAC field 
012A 30 9070 35 BSBW NTSOBTAIN_KEY : Store key string 
48 11 007 36 BRB GET_SEND_CTL_COMMON ; Join common code 
85 09 90 0075 237 108: MOVB #<<BAPSM_RACS!- ; Message must include these fields in 
0078 238 <DAP$M_ROP>!- ; control menu 
0078 239 O>, (R5)+ : 
85 51 90 0078 240 MOVB R1,(R5)+ ; Store RAC field 
40 11 0078 241 BRB GET_SEND_CTL_COMMON ; Join common code 
007D $5 
007D 243 ;+ 
007D 244 ; Access by relative record number or ey key value has been requested. 
BoD $2 3; This operation must be performed in DAP record transfer mode. 
007D 247 ; ) 
007D 248 GET_KEY: : Get operation with RAC = KEY | 
AE 6A 2D £0 O007D 249 BBS #1FBS$V_SQ0,(R10),ERRFTM1; Disallow file transfer mode 
My 30 0081 250 BSBW BUILD_ ; Start building Control message 
20 006 C 91 0084 251 CMPB NWASB_ORGTR7) ,ANWASK_IDX; Branch if IDX organization 
0B 13 0089 $2¢ BEQL 10$ 3 : , 
85 0B 90 0088 25 MOVB #<<DAPSM_RAC>!- 3; Message must include these fields in 
OO8E 254 <DAPS$M_KEY>!- 3; control menu 
OO8E 255 <DAP$M_ROP>!- : 
OO8E $28 O>, (R5)+ : ; 
85 01 90 O08E 257 MOVB #DAPSK_KEY_ACC,(R5)+  : Store RAC field | 
0109 30 0091 258 BSBW NTSOBTAIN_REY ; Store key value 
27) — 11 «(0094 = 259 BRB GET_SEND_CTL_COMMON ; Join common code ; : | 
85 OF 90 0096 60 10$: MOVB #<<BAPSM_RACS!- ; Message must include these fields in | 
0099 61 <DAPSM_KEY>!- 3; control menu 
0099 ¢ <DAPSM_KRF>!~ : 
0099 6 <DAP$M_ROP>!- ; 
0099 64 O>, (R5)+ ; ; 
85 01 90 0099 265 MOVB &#DAPSK_KEY_ACC,(R5)+ ; Store RAC field 
OOFE 30 009C 66 BSBW NTSOBTAIN REY ; Store key string 
85 35 AB 90 O09F 67 MOV  #$RABSB_KRFTR8),(R5)+ ; Store KRF field 
18 «11 Baas re: BRB GET_SEND_CTL_COMMON ; Join common code | 


| M13 : | 
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¥0e 2500 NTSGET = PERFORM NETWORK GET RECORD FUNC $e 1384 8 :50;%9 LAMS SRCINTOGET MAR: 1 . (%) | Pst 
CAS 70 ;+ 
OAS 71 ; Access by record file address has been requested. 
BAe if ; This operation must be performed in DAP record transfer mode. | 
QOAS 74 
OAS 75 GET_RFA: i Get operation with RAC = RFA PSI 
86 6A go 5 OAS 6 BBS #IFBSV_SQ0,(R10),ERRFTM1; Disallow file transfer mode nil 
FF86 »=6930 Q0A9 ? BSBW = BUILD _GET_CTL ; Start ounce Control nessege a 
85 0B 90 OOAC 78 MOVB #<<DAPSM_RAC>! - ; Message must include these fields in NF‘ 
OOAF 79 <DAPS$M_KEY>!- 3 control menu SAI 
OOAF 280 <DAPS$M~ROP>! - : | 
BeAr 5] O>, (R5)+ 3 
85 02 90 OOAF : MOVB #DAPSK_RFA_ACC,(R5)+  ; Store RAC field | 
85 06 90 008 8 MOVB # + ; Store RFA in KEY field 
85 10 A8 00 008 84 MOVL  RABSL_RFAQ(RB),(R5)+ =: 
85 14 A8 BO 00B9 285 MOVW $= RABSW_RFA4(RB),(R5)+ ; Phi 
00BD 86 om 
QOBD 287 ;+ In 
OOBD 288 ; Common code to build rest of the Control message and send it to partner. Cor 
OOBD 289 ;- Pa: 
00BD 290 Sy 
QOOBD 291 GET_SEND_CTL_COMMON: ; Complete and send Control message Pa: 
FF40" 30 O0BD sag BSBW" =e NTSMAP_ROP ; Store ROP as an extensible fiel Sy! 
FF3D' 30 O00CO 29 BSBW NT$BUICD_TAIL 3 Finish building message Psi 
FFSA' 30 O0C3 294 BSBW NTSTRANSAI 3 Send Control message to FAL Cre 
03 50 E€8 00C6 295 BLBS RO,GET_RECV_DAT ; Branch on success | As: 
00c9 «= 31 «(40009 = 296 BRW EXIT ; Branch aid 
OOCcc 297 Th 
OOCC 298 ;+ 79: 
00CcC $38 ; Receive DAP Data message from partner containing user record. The 
00cCc 00 ;- 69% 
oocc § 301 30 
OOCC $08 GET_RECV_DAT: : 
o0cc 30 SSETBIT #DAPSK_DAT_MSG,DAPSL_MSG_MASK(R7) 
00D1 304 ; Expect response of Data message 
FF2C* 30 00D1 305 BSBa NTSRECEIVE ; Get record 
7D 50 «=6—€9 )«©—(00D4) = (3306 BLBC RO, CHKEOF ; Branch on failure 
15 €1 0007 307 BBC #DAPS$V_DAPCRC,- ; Branch if persner does not support Mai 
0 28 A? 00D9 308 DAP$Q_SYSCAP(R7) ,10$ ; _file level CRC checksum . o 
52 44 A7 7D OQOODC 309 mova DAPSQ"FILEDATA(R?),R2 =: Put descriptor of record in <R2,R35> 5 
Q0000'CF 0B O0E0 10 CRC W“NTSCRC_TABLE,- ; Compute CRC (destroying RO-R3) $ 
20 A? Q0E4 11 DAP$L_CRC_RSLT(R7),- ; using result of previous CRC | To 
63 52 O0E6 \¢  (R3) ; calculation as initial CRC value 
20 A? —s 550 0 ppee 3] MOVL RO,DAPS$L_CRC_RSLT(R7) ; Store CRC resultant value. | 16 
52 44 A7 Bree $e 10$: mMOVQ DAP$Q_FICEDATA(R7) ,R2 ; Put descriptor of record in <R2,R5> . 
} ( 
OOFO 316; 
st 4 ; Remove standard record terminator from record of a stream formatted file. | MA 
ita 19 
OOF $9 ASSUME FABSL_UDF EQ 0 
OOFO 1 ASSUME FABSC_FIX EQ 1 | 
OOF O § ASSUME FABSC_VAR EQ § | 
ita ASSUME FABSC_VFC EQ | 
OF 4 ASSUME FABSC_STM EQ 4 
ia 5 ASSUME FABSC_STMLF EQ 5 
OOF 6 ASSUME FABSC_STMCR EQ 6 
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OOF 7 
OF 8 SCASEB SELECTOR=NWASB_RFM(R7)= ; Dispatch on record format: 
OF 9 BASE=#F ABSC_STM- : 
OF 0 DISPL=<- : 
ita 1 Ot ; STM 
iH ¢ 0$- ; STMLF 
8 40$- 3; STMCR 
OOF 4 > ; _UDF, FIX, VAR, VFC 
2E 11 + OOFC 5 BRB 60$ ; Bypass stream specific processing 
Bea 
Bere He ; We've received a record in stream format--strip trailing CRLF if present. 
OOFE 40 
02 52 B61 OOFE 41 20$: CMPW R2,#2 ; Check record Length 
29. =o 1F «0101 2g BLSS 60$ ; Branch if less than two 
—a- 2 2 o.oo ADDL R2,R3,R1 ; Get address past record 
FE Al OAOD 8F 81 0107 ste CMPW #CRLF,-2(R1) :; If record terminates with CRLF 
1D 12 010D 45 BNEQ 60$ ; then remove the characters 
52 02 C2 O10F 346 SUBL2 #2,R2 ; _and reduce the record Length 
18 11 #0112 347 BRB 60$ ; Branch to common code 
0114 $08 
0114 49 ; ; 
Bite 331 3; We've received a record in STALF or STMCR format--strip last character. 
0114 352 ° 
50 OA Q9A Q114 $26 30$: MOVZBL #LF,RO ; Make LF terminator to check against 
03 11 #0117 354 BRB 50$ ; 
50 OC 9A 0119 355 408: MOVZBL #CR,RO ; Make CR terminator to check against 
52 B5 O11C 328 50$: TSTW R2 ; Check record Length 
Oc 13 O11E 57 BEQL 60$ 3; Branch if null record 
». fo oa te Biase 20 ADDL3 = R2,R3,R1 ; Get address past record 
FF Al 50 91 0124 $25 CMPB RO,-1(R1) ; Check for terminator present | 
02 12 0128 60 BNEQ 60$ ; Branch if no terminator to strip 
52 D7 OQ12A 361 DECL R2 ; Strip terminator 
012C $06 
012C Ha H 
012C 64 ; Copy record to BDB buffer. 
O1ot 366 | 
16 A6 652 «BI ES 367 60$: CMPW R2,BDBSW_SIZE(R6) : Is record too big for BDB buffer? 
45 1A 0130 68 BGTRU ERRRTB ; Branch if so é 
14 A6 52 BO 0132 69 MOVW R2,BDB$W_NUMB(R6) ; Update byte count in BDB 
18 B6 63 52 28 0136 4 MOVC3 R2,(R3),@BDBSL_ADDR(R6) ; Move record to BDB buffer 
0138 72 3+ 
0138 48 3 Receive DAP Status erssege from partner if we are in record transfer mode 
Bis a 3; and return record file address of the first block accessed. 
Sie 6 
138 77 GET_RECV_STS: : oe 
0138 78 RMSSUC 3 Anticipate success 
53 6A 3 EO b125 79 BBS #1FBS7_SQ0, (R10) BxIT ; Branch if in file transfer mode 
4F 67 4 €1 Ba 80 BBC #DAPS$V~GEQ_V56,(R7),EXIT: Branch if partner uses DAP before V5.6 
146 81 ; teeee SSETBIT #DAPSK_STS_MSG,DAPSL_MSG_MASK(R7); Implied for receive 
FEB7" 30 0146 36 BSBW NTSRECEIVE ; Obtain status of get request 
49 50 €9 0149 BLBC RO,EXIT ; Branch on failure 


| B 14 | 
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008D 3 14C 84 BSBW NTSRET_RFA ; Return RFA value to user RAB 
0097 14F 85 BSBW NTSRET_RRN ; Return relative record number in BKT 
136 58 ; field (if appropriate) 
41 015 BRB EXIT 3; Branch aid 
0154 88 
0154 89 ; ; 
0154 90 ; Check for end-of-file. 
0154 91 3 
0154 t06 
30 6A 2D £1 0154 3 CHKEOF: BBC #1FBS$V_SQ0,(R10) ,EXIT ; Branch if record yraqerer mode 
827A BF 650) «681 «(0158 «= 394 CMPW «RO, ACRASS_EOF&*XFFFF> : Is it an end-of-file? 
36 12 015D $92 BNEQ EXIT : Branch if not 
O15F 96 ese Terr #NWASV_FTM_EOF, (R7) 3; Denote that end-of-file has been 
30 3611 «+0163 $05 BRB EXIT ; reached so that EOF status can be 
0165 98 3 returned on next read attempt 
0165 399 ;+ 
0165 400 ; Common exit code for $GET and $FIND. 
0165 401 ;:- 
0165 108 
01 BA 0165 4035 ERRKBF: POPR #*M<RO> 3; Discard return address on stack 
0167 404 RMSERR KBF ; Key buffer error 
27 2611 #+016C 405 BRB EXIT hae 
01 BA pige 406 ERRKSZ: POPR #*°M<RO> ; Discard return address on stack 
170 407 RMSERR KSZ ; Key buffer size error 
1E 11 #0175 408 BRB Aa ; 
0177 409 ERRRTB: RMSERR ; Record too big . 
0c AB 52 3€ +O17C~ 410 MOVZWL RD° RABSL_STV(R8) ; Return record size in STV 
13. 11 #0180 411 BRB EXIT : : 
0182 ef ERRRAC: RMSERR- RAC : Invalid record access value 
0c 11 0187 41 BRB EXIT , 
0189 414 ERRFTM: RMSERR FIM 3; File transfer mode error 
0S 11 OWE 415 BRB EXIT 3 : 
0190 416 ERREOF: RMSERR EOF ; Declare end-of-file 
OC AD = 6©7C: «600195)0—s 417 EXIT: CLRQ IRB$L_10S(R9) ; Zero 1/0 status block 
0198 418 : see eiasu'y status info is already in 
0198 419 : $W_NUMB, and RABS$L_STV) 
OOFO 8F BA 0198 420 POPR #*M<R4,R5,R6,R7> ; Restore registers 
05 019C 421 RSB : Exit with RMS code in RO 
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-SBTTL NTSOBTAIN_KEY = STORE KEY VALUE 
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304 
3; NTSOBTAIN_KEY = stores the key value as an image field in the DAP message. 
; For sequent ‘ai and relative files, the key is a relative record number. 

; For indexed files, the key is a string (text or packed decimal) or a binary 
; number (signed or unsigned). 


NTSOBTAIN_KEY:: ag point 

MOVZBL Get length of key 
Get address of key buffer 
Branch if IDX organization 


Ww 

os 
Or, 
—~-~vooCco 
—o°o 0 
Ww-oPY 


WASK_IDX 


Bete Se Se Ge 


: This is a sequential or relative file. 
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61 04 OA PROBER —— eee ; Branch if key buffer is not readable 


= 


; Check key size ; 

; Ok if default of zero specified 
; Check key size ager 

; Branch if not = 

; Get _ value ’ 

; be hy EY as an image field 

; Exi 


10$:  MOVL  (R1),R1 
BSBW  NTSCVT_BN4_IMG 
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This is an indexed file. 


Note: At this point RMS does not know the type of key being used (DTP value); 
FAL (actually the file system at the remote node) has this information, 
but this has not be communicated back to RMS (at the local node). 
Consequently, RMS will package the key value for remote access to an 
indexed file as follows: 

(1) If the aay size is explicilty stated (required for string keys 
anyway), RMS will use the specified size to obtain the key value 
from the key buffer. ‘ 

(2) If the key size in zero tparuaity allowed for binary keys), RMS 
will default the size to 4 and obtain the key value from the key 
buffer. This will result in a restriction: for 2-byte and 8-byte 
binary keys (DTP = BN2, IN2, BN8, and IN8) the user will have to 
rs ae specify the correct key size (2 or 8) for a network 
request. A more general solution should be considered for a future 
release to remove this restriction. 


208: TSTL : Drench tf key size is explicitly 


; state 
; Default to key size of 4 bytes 
; Branch if key buffer is not readable 


uw 
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; Store KEY as an image field but do not 
suppress leading zero bytes (as is 
done for relative record numbers) 
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B ER 

RO 

RO 


oa 

— 

“ 

oO 
ooo 
~~" 

So 

> 
VINO PF OOW! 
COOL OFfwo 
mo-oU°o 9 
WOWNOOoNM 


oa 
uw 
DTOVGVAAAOAOOAOOAIAOAAOAOHAOOMCIOOOOOOCOOMCOCOCOCWWWWWOOO>r>rrYrr Kr yKrxKr Kr Kr OOWOWWOWoOwowowowow 


OR 2 SN MWWWWWWWWWWW NWN FO BNW OOOOH SUNG OCVVCVUT0T09 
Pee Se Oe ee ee ee oe ee ot ot ot ot ot ot ot ot ot eee eee 


ed ce ee cd ce ce ed ed ee cee ce ceed ae eee cen cee ce eae a ca ee ce ce coe ce ce ce ca ce cee ca ce cc ce ce ce ee a ce ce ca ca ca ee ce ee a ee ced ee ee ee ee eee 
SN NSS SSNS NSD DDD DD AAA DA IIT 
WONA UNE WWIN 9 OD NOAU EWR 0 OOD NOAU EWN | 0 OO NAU EWN 0 OONOAOUE WN OOONOUS WW 


Cole lolol oleae lal elelelelel eo alelelelo) sietwlolejleleleleleleloeleleleleleleleleleleleleleleleolelelolelelelelolela| 


ad = 
o 
=) 
mm 
=~ 
@ 
oO 
~~ 
>. 
@D 
o 
J 
~ 
» 
— 
-— 
Sete Sete Ge Ge eee 


SER ake Se ala EIS te SO Te Ne ee ig 


<2 
EO 


55 


NETWORK GET/FIND R 
NTSOBTAIN_KE 


F 
¥= 
Te 


REY VALUE 


MOVL 
RSB 


D 14 


R3,R5 


=$F6= 1982 98: 


0: RMS.SRCINTOGET.MAR; 1 
J pire pointer to correct register 
> x 
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NTOGET NETWORK GET/FIND RECORD 16-SEP-1984 00:01:2 AX/VMS Macro v04-00 Page 11 
v04= NTSRET_RFA = RETURN RFA VALUE BEEP 1984 16:50:69 LRMS SRCINTOGEY MARS I ae 
10¢ rt +4 -SBTTL NTSRET_RFA = RETURN RFA VALUE 

1DC 3 =. 484 
10¢ 485 ;++ 
10€ c88 3; NTSRET_RFA = returns the record file address value to the RFA field of the 
O1DC 487 ; user RAB. 
O1DC 488; 
QO1DC 489 ; R1 is destroyed on output. 
atts 490 ;-- 
1DC 491 
010C 236 NTSRET_RFA:: : Entry point 
51 42 A7 DE Q1DC 49 MOVAL DAP$W_RFA(R7),R1 ; Get address of RFA returned by FAL 
10 AB 81 =O sCO1EO = 494 MOVL (R1) +7 RABSL_RFAO(R8) : Move 6-byte RFA value to user RAB 
14 A8 61 BO O1E4 495 MOVW (R1),RABSW_RFAG(R8) : 
0S O1FB 496 RSB 3; Exit 


NTOGET 
v04- 


10 00C6 C7 


00 1E A8 
05 

48 A? 

38 A8 
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T/FIND RECORD 16-SEP-1984 00: gh 38 ales Macro V04-00 Page 
- RETURN RRN VALUE -SEP=1984 16:20:4 RMS.SRCINTOGET.MAR; 1 

$38 -SBTTL NTSRET_RRN = RETURN RRN VALUE 

00 ;+ 

280 : : NTSRET RRN = returns the relative record number value to the BKT field of the 

28g : 3 user RAB on sequential access to a relative file. 

504 

505 NTSRET_RRN : Entry point 

209 cre NWASB_ORG(R7) , #NWASK REL; erereh if this is not a relative 

508 CMPB RABSB_RAC (RB) ,#RABSC_ SEQ: Branch if this is not sequential 

509 BNEQ 10$ 3 access to the file 

510 MOVL DAPSL_RECNUM2(R7) ,=- ; Store relative record number from 

511 RABSL_BKT(R8) ; Status message in BKT field of RAB 

512 10$: RSB 3; Exit 
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-SBTTL NTSFIND - PERFORM NETWORK FIND RECORD FUNCTION 


NTOGET NE NT( 
04600 NT 


—~ 
Nw 


p++ 
; NTSFIND - engages in a DAP dialogue with the remote FAL to find (locate) 
; the specified record of a sequential, relative, or indexed ‘file. 


; Calling Sequence: 
BSBW NTSF IND 
Input Parameters: 
RG BOB address 
R8 RAB address 
Bo IRAB address 
R10 IFAB address 
R11 Impure Area address 
Implicit Inputs: 


DAPS$V_GEQ_V56 
IFBSL-NWA-PTR 
IF a0 


Output Parameters: 
RO Status code (RMS) 
R1-R3 Destroyed 
AP Destroyed 
Implicit Outputs: 
IRB$L_IOS and IRB$L_10S4 zeroed 
RABSL_BKT 
RABSW_RFA 
Completion Codes: 
Standard RMS completion codes 
Side Effects: 


None 
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NTSFIND:: Entry point 
STSTPT NTFIND 
PUSHR #*M<R4,R5,R6,R7> ; Save registers 
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ae 
; This support routine builds the first 
3 _CTLFUNC field for the find operation. 


BUILD_FIND_CTL : 
SsETeli #NWASV_LAST_MSG, (R7) ; 
#DAPSK~CTL_ASG,RO 3 

BSBa NTSBUICD_H : 

nove #DAPSK “FIND. (R5)+ : 


Mi 
3 Sequential access has been requested. 


part of a Control message thru the 


D RECORD SEP=19 0:01:2 AX/VMS Macro Vv04-00 Page 14 NT( 
RM NETWORK FIND RECORD FU Beets Pi 9° 9h: 8 LRMS. SRCINTOGET. MAR: 1 ° (7) Vv0é 
BBS #IFBSV_SQ0,(R10),ERRFTM2; Network find function not allowed 
; _if file transfer mode selected 
MOVL IFBSL_ ore PTR(R10),R7 ; Get address of NWA (and DAP) 
CLRW BOBSW- NUMB(R4) ; Zero byte count in BDB 
BSBw NTSCHE RA ; Validate record access mode 
BLBC 0,10$ ; Branch on failure 
ASSUME RABSC_SEQ EQ 0 
ASSUME RABSC_KEY EQ 
ASSUME RABSC_RFA EQ 2 
SCASEB ie =RABSB_RAC(R8)=- ; Dispatch on access mode: 
FIND_SEQ- ; Sequential record access 
FIND_KEY= ; Access by relative record # 
FIND_RFA- ; Access by record file address 
> ; Value out-of-range 
BRW ERRRAC ; Branch aid 
10$: BRW EXIT ; Branch aid 
ERRF TM2:BRW ERRF TM ; Branch aid 


; Entry point 
; Declare this last message to block 


Get message type value 


; Construct message header 
: acere CTLFUNC field 
M x 


FIND_SEQ: ; Find operation with RAC = SEQ 
30 BSBW BUILD _FIND_CTL Start building Control message 
E1 BBC #RABST_LIM, “RABSL ROP(RB) 108 
91 CMPB NWASB_ORG(R7) ,ANQASK_IDX: Fall thru if key Limit option selected 
12 BNEQ 10$ : for an indexed file 
90 MOVB #<<DAPSM_RAC>!- ; Message must include these fields in 
<DAPSM_KEY>!- 3 control menu 
0> one ROP>!- : 
MOVB #DAPSK_SEQ_ACC,(R5)+ ; Store RAC field 
BSBW NISOBTRIN Y ; Store key string 
BRB FIND_SEND- oie COMMON ; Join common code 
10$: MOVB #<<DAPSM_RAC ; Message must include these fields in 
o> <DAPER- corel 3 control menu 
00 MOVB #DAPSK_SEQ_ACC,(R5)+ ; Store RAC field 
2:30 BRB FIND_SEND_CTL_COMMON 3 Join common code 
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33 
238 
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600 
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O06 
60 
604 
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608 
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ei 
ei§ 
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618 
619 
620 
? 1 
633 
624 
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638 
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s¢ 
3; Access by relative record number or by key value has been requested. 


GET/FIND RECORD 16-SEP-1984 00:01:2 AX/VMS Macro v04-00 Page 
= PERFORM NETWORK FIND RECORD FU mi iaets 7 98:9 :e9 LRMS SRCINTOGET MARS 1 . 
3 § 3 ; This operation must be performed in DAP record transfer mode. 
B 630° 
B 631 FIND_KEY: ; Find operet ion with RAC = KEY 
5B 6 § BSBW BUILD_F IND cre ; Start building Control message 
é§ ° Z a wun B-ORG(R7) ,ANWASK_IDX; Branch if IDX organization 
6 635 MOVB #<<DAPSM_RAC>!- ; Message must include these fields in 
6 6 § <DAPSM_KEY>!- 3 control menu 
6 6 <DAPSM_ROP>! = ; 
6 638 >, (R5)+ : 
68 639 MOVB #DAPSK_KEY_ACC,(R5)+ 3; Store RAC field 
6B 640 BSBW NTSOBTAIN_REY ; Store key value 
0 § 641 BRB FIND_SEND_CTL_COMMON ; Join common code 
$66 10$: MOVB #<<DAPSM_RAC>T- 3; Message must include these fields in 
027 64 <DAPSM_KEY>!- 3; control menu 
0273 644 <DAPSMKRF>! = : 
0273 645 <DAPS$M_ROP>!- : 
027 646 0>, (R5)+ : 
027 647 MOVB #DAPSK_KEY_ACC,(R5)+ ; Store RAC field 
0276 648 BSBW NTSOBTAIN_REY ; Store key string 
0279 649 MOVB RABSB_KRE TRB), (R5)+ : Store KRF field 
8 Ms o38 BRB F IND_SEND_CTL_COMMON ; Join common code 
027F $2¢ i+ 
O27F 653 ; Access by record file address has been requested. 
OS ir 638 ; This operation must be performed in DAP record transfer mode. 
O27F 656 
og zr 657 FIND_RFA: ; Find operation with RAC = RFA 
O27F 658 BSBW BUILD FIND CTL ; Start utlaing Control message 
ase 659 MOVB #<<DAPS$M_RAC>!- 3; Message must include these fields in 
028 660 <DAPSM_KEY>!- ; control menu 
0285 661 <DAP$M_ROP>! = : 
0285 66 >, (R5)+ : 
85 02 90 0 3 66 MOVB #DAPSK_RFA_ACC,(R5)+ : Store RAC figld : 
85 06 90 0288 664 MOVB #6, (R5T+ 3 Store RFA in KEY field 
85 10 AB 00 0288 665 MOVL RABSL_RFAO(RB),(R5)+ =: 
85 14 AB BO O28F 666 MOVW RABSW_RFA4(RB),(R5)+ : 
0 33 667 
029 668 ;+ - 
26) ; Common code to build rest of the Control message and send it to partner. 
93 671 ° 
9 of6 FIND_SEND_CTL_COMMON: ; Complete and send Control message 
FD6A’ 30 8 93 67 BSBW ~ NTS$MAP_ROP ; Store ROP as an extensible fiel 
FD67" 30 96 674 BSBW NTSBUICD TAIL : Finish building message 
FD64" 30 0299 675 BSBW NTSTRANSAIT ; Send Control message to FAL 
1050 €9 QO 45 676 BLBC RO,EXITI ; Branch on failure 
6 SF 678 ;+ 
8 = 43 ; Receive DAP Status message from partner. 
9F 6681 
oF 66 $ FIND_RECV_STS: : 
OC 67 24 «€1 9F 6 #DAPSV_GEQ_V56,(R7),EXITI:Branch if partner uses DAP before V5.6 
02A3 684 ; seeee SSETBIT #DAPSK_STS_MSG,DAPSL_MSG_MASK(R7); Implied for receive 
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NTSFIND = PERFORM N CORK FIND RECORD FL 5=SEP- 
FDSA' 3 A3 5 BSBW NTSRECEIVE 
06 0 Ag : BLBC 
FF A BSBW nrghet. RFA 
FF3A at 6 8 BSBW NTSRET“RRN 
FEES 31 OOAF 690 EXIT1: BRW EXIT 
B 691 
Bo 692 END 
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Obtain status of find request 

Branch on failure 

Return RFA value to user RAB 

Return r (1 appr eoeere number in BKT 
field ¢ appropriate) 

Branch a 


End of module 
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PBUGCHK 
BITCNT 
BLKCNT 


NTOGET 
Symbol table 
$$.PSECT_EP 
SSCOUNT 
SSRMSTEST 
SSRMS 

DAP$B 

DAP$B 

DAPS$B 

DAP$B 

DAPS$B 

DAP$B 

DAPS$B 

DAP$B 

DAPS$B 

DAPSB 

DAP$B 

DAP$B 

DAPSM 
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2 AX/VMS Macr 
3 te $.SRCINTO 
= 0000000A NWASQ_X 8 § E8 
NTSBUILD HEAD eeeeerer = X 91 NWAST_ “NCSBUF of 
NTSBUILD- TAIL eeneeeee = x 1 NWA$T_AUXBUF OSE 
NTSCHK_RA eeeeeeee =X 01 NWAST_DAP 000000 
NTSCRC_TABLE eeeeeeee = x 1 NUAST. ~ INODEBUF OOOe AC 
wiscvt “BN4_IMG aeeeeeee =X 1 WAST_ITM_ATTR 44 0 
NTSF IND QOOOO1FC RG 1 NWA WAST_ITM_END 0000 $e 
00000000 RG 01 NWAST_ITM_LST 0000200 
NTSMAP_ROP eeeeneeer = X (1 NWAST—1TM_MAXINDX 0000218 
NTSOBTAIN_KEY 0000019D RG 01 NWAST_ITM-STRING 0000 oe 
NTSRECEIVE eeeeeeee =X 01 NWAST_NCBSUF 000052C 
NTSRET_RFA 000001DC RG 01 NWAST_NODEBUF esate 
NTSRET-RRN OOOO0IE9 RG 01 NWAST_RCVBUF 00001A0 
NTSTRANSMIT reteeeee 01 NWAST_SCAN 00000100 
NWASB_ALLXABCNT 0000011C NWAST_TE 00000120 
NWASB_DAP_RAC 000000C9 NWAST_XLTBUF1 BeOSO SA 
NWASB_FILESYS 000000C¢5 NWAST_XLTBUF 2 000003AC 
NWASB_KEYXABCNT 0000011D NWAST_XMTBUF 000003C¢0 
NWASB_NETSTRSIZ 0000016F NWASV_F TM_EOF = 0000001D 
NWASB_NODBUF $12 00000168 NWASV_FTM_INIT = 00000019 
NWASB_ORG 000000C6 NWASV_FTM_RETRV = QOOQ001A 
NWASB_OSTYPE 0000004 NWASV_FTM- STORE = 00000018 
NWASB_RF 000000¢7 NWASV_LAST_MSG = 00000000 
NWASB_RMS_RAC 000000C8 WASW_BUILD 000000D2 
NWASC_BL 00000800 NWASW_DAPBUF SIZ QOO000CA 
NWASK_BLN 00000800 NWASW_DIR_OFF Q00000CC 
NWASK_IDX = 00000020 NWASW_DISPLAY 00000000 
NWASK_REL = 00000010 NWASW_FIL_OFF Saat TE 
NWASL_ALLXABADR 00000100 NWASW ~NLRABJOP 0000011€ 
NWASL_DATXABADR 00000104 PIOS$A_TRACE soceeeet x 01 
NWASL_DEV 000000C0 RABSB_KRF = 00000035 
NWASL_FHCXABADR 00000108 RABSB_KSz = 00000034 
NWASL_KEYXABADR 0000010C RABS$B_RAC = QOOO001E 
NWASL_MSG_MASK 000000D4 RABSC_KEY = 494 4 
NWASL_PROXABADR 00000110 RABSC_RFA = 00000002 
NWASL_RDTXABADR 00000114 RABS$C_SEQ = 00000000 
NWASL_SAVE_FLGS 00000128 RABSL_BKT = 00000038 
NWASL_SUMXABADR 00000118 BSL_KBF = 00000030 
ary a | OOOO00FC RABSL_RFAO = 00000010 
NWASL_XLTATTR Oooo NS ae RAB$L_ROP = 00000004 
NWASL_XLTBUFFLG 0000022C RABS$L_STV = 0000000C 
NWASL_XLTCNT 00000228 ABSV_LIM = 0000000E 
NWASL_XLTMAX INDX 00000234 RABSW_RFA4 = 00000014 
NWASL_XLTSIZ 444 C44 RMS$_EOF = 0001 44, 
NWASQ_ACS 00000244 RMS$_FTM = 0001874 
NWASQ_B1GBUF 00000170 RMS$_KBF = 0001858C 
A$Q_BLD 000000F 0 RMS$_KSZ = 000185A4 
NWASQ_FLG 00000000 RMS$_RAC = 000138644 
A$SQ_INODE 0000025C RMS$_RTB = 000181A8 
NWASQ_IOSB ait bg TPTSC_NTFIND aeeeeeee =X (01 
ASQ_LNODE 00 848 TPTSL_NTGET eeneeeee =X = 601 
NWASQ~LOGNAME 0000023¢ 
“NCB 00000264 
NWASQ_RCV 44 50 
NWASQ" SAVE DESC 000001 
NUASO™ XLTBOF 1 tty 
NWASQ- Xt TBUF2 00000254 
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Psect synoosis ! 
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PSECT name Allocation PSECT No. Attributes 

- ABS. 00000000 <( 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 

NF SNE TWORK Q000002B2 ( 690.) 01 ¢ 1.) PIC USR CON REL GBL NOSHR EXE RD NOWRT NOVEC BYTE 

ABS 00000800 ( 2048.) 02 ¢ 2.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 

pom maeonman *eeeea ea ecee wee ewan an > 
: Performance indicators ! 

Phase Page faults CPU Time Elapsed Time 

Initialization 29 00:00:00.10 00:00:00.50 

Command processing 106 00:00:00.60 00:00:03.38 

Pass 1 373 00:00:15.12 ee SD 

Symbol table sort 0 00:00:01.91 00:00:03.11 

Pass 2 132 00:00:03.07 00:00:09.55 

Symbol table output 26 00:00:00.20 00:00:00.74 

Psect synopsis output 2 00:00:00.02 00:00:00.02 

Cross-reference output 0 00:00:00.00 00:00:00.00 

Assembler run totals 670 00:00:21.03 00:00:59.82 


The working set Limit was 1500 pages. , 

79333 bytes (155 pages) of virtual memory were used to buffer _the intermediate code. 

There were 70 pages of symbol tabie space allocated to hold 1389 non-local and 26 local symbols. 
692 source Lines were read in Pass 1, producing 15 object records in Pass 2. 

30 pages of virtual memory were used to define 29 macros. 


bm morn cone ee ran weno wore mone + 
! Macro library statistics ! 


om eR we BO Be OMe mem + 


Macro Library name Macros defined 
.$255$DUA28: CRMS.OBJJRMS.MLB; 1 21 
$255$DUA28: CSYSLIBISTARLET.MLB;2 4 
TOTALS (all Libraries) 25 


1618 GETS were required to define 25 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:M{0GET/OBJ=OBJ$:NTOGET MSRC$:NTOGET/UPDATE=(ENHS:NTOGET)+LIB$:RMS/LIB 
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